United Kingdom

Row

New cases

New tests

Row

Hospital patients

ICU patients

New deaths

New deaths per million

Row

People vaccinated (1st dose)

People fully vaccinated (2nd dose)

Total boosters (3rd dose)

New vaccinations per million

Hungary

Row

New cases

New tests

Row

Hospital patients

ICU patients (no data available)

New deaths

New deaths per million

Row

People vaccinated (1st dose)

People fully vaccinated (2nd dose)

Total boosters (3rd dose)

New vaccinations per million

---
title: "COVID-19 Pandemic"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    social: menu
    source_code: embed
---

```{r setup, include=FALSE}
library(dygraphs)
library(xts)
library(lubridate)
library(dplyr)
library(tidyr)

### Data source: Our World In Data https://ourworldindata.org/coronavirus 

covid <- read.csv(url("https://raw.githubusercontent.com/owid/covid-19-data/master/public/data/owid-covid-data.csv"))

w_covid <- covid %>%
  filter(location == "World")

uk_covid <- covid %>%
  filter(location == "United Kingdom")

hun_covid <- covid %>%
  filter(location == "Hungary")
```


United Kingdom
=======================================================================

Row
-----------------------------------------------------------------------

### New cases

```{r, include=FALSE}
uk_covid_sub <- subset(uk_covid, select = -c(1:3, 5, 7:59))

uk_covid_sub$date <- ymd(uk_covid_sub$date)

str(uk_covid_sub)

data <- xts(x = uk_covid_sub$new_cases, order.by = uk_covid_sub$date)
names(data) <- c("New cases")
data <- abs(data$`New cases`)
```

```{r}
dygraph(data) %>%
  dyOptions(fillGraph = TRUE, fillAlpha = 0.5, colors = "#337ab7") %>%
  dyCrosshair(direction = "vertical") %>%
  dyLegend(show = "always") %>%
  dyRangeSelector() 
```


### New tests

```{r, include=FALSE}
uk_covid_sub <- subset(uk_covid, select = -c(1:3, 5, 27:59))

uk_covid_sub$date <- ymd(uk_covid_sub$date)

str(uk_covid_sub)

data <- xts(x = uk_covid_sub$new_tests, order.by = uk_covid_sub$date)
names(data) <- c("New tests")
```

```{r}
dygraph(data) %>%
  dyOptions(fillGraph = TRUE, fillAlpha = 0.5, colors = "#337ab7") %>%
  dyCrosshair(direction = "vertical") %>%
  dyLegend(show = "always") %>%
  dyRangeSelector() 
```

Row
-----------------------------------------------------------------------

### Hospital patients

```{r, include=FALSE}
uk_covid_sub <- subset(uk_covid, select = -c(1:3, 5, 21:59))

uk_covid_sub$date <- ymd(uk_covid_sub$date)

str(uk_covid_sub)

data <- xts(x = uk_covid_sub$hosp_patients, order.by = uk_covid_sub$date)
names(data) <- c("Hospital patients")
```

```{r}
dygraph(data) %>%
  dyOptions(fillGraph = TRUE, fillAlpha = 0.5, colors = "#337ab7") %>%
  dyCrosshair(direction = "vertical") %>%
  dyLegend(show = "always") %>%
  dyRangeSelector() 
```


### ICU patients

```{r, include=FALSE}
uk_covid_sub <- subset(uk_covid, select = -c(1:3, 5, 19:59))

uk_covid_sub$date <- ymd(uk_covid_sub$date)

str(uk_covid_sub)

data <- xts(x = uk_covid_sub$icu_patients, order.by = uk_covid_sub$date)
names(data) <- c("ICU patients")
```

```{r}
dygraph(data) %>%
  dyOptions(fillGraph = TRUE, fillAlpha = 0.5, colors = "#337ab7") %>%
  dyCrosshair(direction = "vertical") %>%
  dyLegend(show = "always") %>%
  dyRangeSelector() 
```


### New deaths

```{r, include=FALSE}
uk_covid_sub <- subset(uk_covid, select = -c(1:3, 5, 10:59))

uk_covid_sub$date <- ymd(uk_covid_sub$date)

str(uk_covid_sub)

data <- xts(x = uk_covid_sub$new_deaths, order.by = uk_covid_sub$date)
names(data) <- c("New deaths")
```

```{r}
dygraph(data) %>%
  dyOptions(fillGraph = TRUE, fillAlpha = 0.5, colors = "#337ab7") %>%
  dyCrosshair(direction = "vertical") %>%
  dyLegend(show = "always") %>%
  dyRangeSelector() 
```


### New deaths per million

```{r, include=FALSE}
uk_covid_sub <- subset(uk_covid, select = -c(1:3, 5, 16:59))

uk_covid_sub$date <- ymd(uk_covid_sub$date)

str(uk_covid_sub)

data <- xts(x = uk_covid_sub$new_deaths_per_million, order.by = uk_covid_sub$date)
names(data) <- c("New deaths per million")
```

```{r}
dygraph(data) %>%
  dyOptions(fillGraph = TRUE, fillAlpha = 0.5, colors = "#337ab7") %>%
  dyCrosshair(direction = "vertical") %>%
  dyLegend(show = "always") %>%
  dyRangeSelector() 
```

Row
-----------------------------------------------------------------------

### People vaccinated (1st dose)

```{r, include=FALSE}
uk_covid_sub <- subset(uk_covid, select = -c(1:3, 5, 40:59))

uk_covid_sub$date <- ymd(uk_covid_sub$date)

str(uk_covid_sub)

data <- xts(x = uk_covid_sub$people_vaccinated, order.by = uk_covid_sub$date)
names(data) <- c("People vaccinated")
```

```{r}
dygraph(data) %>%
  dyOptions(fillGraph = TRUE, fillAlpha = 0.5, colors = "#337ab7") %>%
  dyCrosshair(direction = "vertical") %>%
  dyLegend(show = "always") %>%
  dyRangeSelector() 
```

### People fully vaccinated (2nd dose)

```{r, include=FALSE}
uk_covid_sub <- subset(uk_covid, select = -c(1:3, 5, 40:59))

uk_covid_sub$date <- ymd(uk_covid_sub$date)

str(uk_covid_sub)

data <- xts(x = uk_covid_sub$people_fully_vaccinated, order.by = uk_covid_sub$date)
names(data) <- c("People fully vaccinated")
```

```{r}
dygraph(data) %>%
  dyOptions(fillGraph = TRUE, fillAlpha = 0.5, colors = "#337ab7") %>%
  dyCrosshair(direction = "vertical") %>%
  dyLegend(show = "always") %>%
  dyRangeSelector() 
```

### Total boosters (3rd dose)

```{r, include=FALSE}
uk_covid_sub <- subset(uk_covid, select = -c(1:3, 5, 40:59))

uk_covid_sub$date <- ymd(uk_covid_sub$date)

str(uk_covid_sub)

data <- xts(x = uk_covid_sub$total_boosters, order.by = uk_covid_sub$date)
names(data) <- c("Total boosters")
```

```{r}
dygraph(data) %>%
  dyOptions(fillGraph = TRUE, fillAlpha = 0.5, colors = "#337ab7") %>%
  dyCrosshair(direction = "vertical") %>%
  dyLegend(show = "always") %>%
  dyRangeSelector() 
```


### New vaccinations per million

```{r, include=FALSE}
uk_covid_sub <- subset(uk_covid, select = -c(1:3, 5, 50:59))

uk_covid_sub$date <- ymd(uk_covid_sub$date)

str(uk_covid_sub)

data <- xts(x = uk_covid_sub$new_vaccinations_smoothed_per_million, order.by = uk_covid_sub$date)
names(data) <- c("New vaccinations per million")
```

```{r}
dygraph(data) %>%
  dyOptions(fillGraph = TRUE, fillAlpha = 0.5, colors = "#337ab7") %>%
  dyCrosshair(direction = "vertical") %>%
  dyLegend(show = "always") %>%
  dyRangeSelector() 
```


Hungary
=======================================================================

Row
-----------------------------------------------------------------------

### New cases

```{r, include=FALSE}
hun_covid_sub <- subset(hun_covid, select = -c(1:3, 5, 7:59))

hun_covid_sub$date <- ymd(hun_covid_sub$date)

str(hun_covid_sub)

data <- xts(x = hun_covid_sub$new_cases, order.by = hun_covid_sub$date)
names(data) <- c("New cases")
data <- abs(data$`New cases`)
```

```{r}
dygraph(data) %>%
  dyOptions(fillGraph = TRUE, fillAlpha = 0.5, colors = "#337ab7") %>%
  dyCrosshair(direction = "vertical") %>%
  dyLegend(show = "always") %>%
  dyRangeSelector() 
```


### New tests

```{r, include=FALSE}
hun_covid_sub <- subset(hun_covid, select = -c(1:3, 5, 27:59))

hun_covid_sub$date <- ymd(hun_covid_sub$date)

str(hun_covid_sub)

data <- xts(x = hun_covid_sub$new_tests, order.by = hun_covid_sub$date)
names(data) <- c("New tests")
```

```{r}
dygraph(data) %>%
  dyOptions(fillGraph = TRUE, fillAlpha = 0.5, colors = "#337ab7") %>%
  dyCrosshair(direction = "vertical") %>%
  dyLegend(show = "always") %>%
  dyRangeSelector() 
```

Row
-----------------------------------------------------------------------

### Hospital patients

```{r, include=FALSE}
hun_covid_sub <- subset(hun_covid, select = -c(1:3, 5, 21:59))

hun_covid_sub$date <- ymd(hun_covid_sub$date)

str(hun_covid_sub)

data <- xts(x = hun_covid_sub$hosp_patients, order.by = hun_covid_sub$date)
names(data) <- c("Hospital patients")
```

```{r}
dygraph(data) %>%
  dyOptions(fillGraph = TRUE, fillAlpha = 0.5, colors = "#337ab7") %>%
  dyCrosshair(direction = "vertical") %>%
  dyLegend(show = "always") %>%
  dyRangeSelector() 
```


### ICU patients (no data available)

```{r, include=FALSE}
hun_covid_sub <- subset(hun_covid, select = -c(1:3, 5, 19:59))

hun_covid_sub$date <- ymd(hun_covid_sub$date)

str(hun_covid_sub)

data <- xts(x = hun_covid_sub$icu_patients, order.by = hun_covid_sub$date)
names(data) <- c("ICU patients")
```

```{r}
dygraph(data) %>%
  dyOptions(fillGraph = TRUE, fillAlpha = 0.5, colors = "#337ab7") %>%
  dyCrosshair(direction = "vertical") %>%
  dyLegend(show = "always") %>%
  dyRangeSelector() 
```


### New deaths

```{r, include=FALSE}
hun_covid_sub <- subset(hun_covid, select = -c(1:3, 5, 10:59))

hun_covid_sub$date <- ymd(hun_covid_sub$date)

str(hun_covid_sub)

data <- xts(x = hun_covid_sub$new_deaths, order.by = hun_covid_sub$date)
names(data) <- c("New deaths")
```

```{r}
dygraph(data) %>%
  dyOptions(fillGraph = TRUE, fillAlpha = 0.5, colors = "#337ab7") %>%
  dyCrosshair(direction = "vertical") %>%
  dyLegend(show = "always") %>%
  dyRangeSelector() 
```


### New deaths per million

```{r, include=FALSE}
hun_covid_sub <- subset(hun_covid, select = -c(1:3, 5, 16:59))

hun_covid_sub$date <- ymd(hun_covid_sub$date)

str(hun_covid_sub)

data <- xts(x = hun_covid_sub$new_deaths_per_million, order.by = hun_covid_sub$date)
names(data) <- c("New deaths per million")
```

```{r}
dygraph(data) %>%
  dyOptions(fillGraph = TRUE, fillAlpha = 0.5, colors = "#337ab7") %>%
  dyCrosshair(direction = "vertical") %>%
  dyLegend(show = "always") %>%
  dyRangeSelector() 
```


Row
-----------------------------------------------------------------------

### People vaccinated (1st dose)

```{r, include=FALSE}
hun_covid_sub <- subset(hun_covid, select = -c(1:3, 5, 40:59))

hun_covid_sub$date <- ymd(hun_covid_sub$date)

str(hun_covid_sub)

data <- xts(x = hun_covid_sub$people_vaccinated, order.by = hun_covid_sub$date)
names(data) <- c("People vaccinated")
```

```{r}
dygraph(data) %>%
  dyOptions(fillGraph = TRUE, fillAlpha = 0.5, colors = "#337ab7") %>%
  dyCrosshair(direction = "vertical") %>%
  dyLegend(show = "always") %>%
  dyRangeSelector() 
```

### People fully vaccinated (2nd dose)

```{r, include=FALSE}
hun_covid_sub <- subset(hun_covid, select = -c(1:3, 5, 40:59))

hun_covid_sub$date <- ymd(hun_covid_sub$date)

str(hun_covid_sub)

data <- xts(x = hun_covid_sub$people_fully_vaccinated, order.by = hun_covid_sub$date)
names(data) <- c("People fully vaccinated")
```

```{r}
dygraph(data) %>%
  dyOptions(fillGraph = TRUE, fillAlpha = 0.5, colors = "#337ab7") %>%
  dyCrosshair(direction = "vertical") %>%
  dyLegend(show = "always") %>%
  dyRangeSelector() 
```

### Total boosters (3rd dose)

```{r, include=FALSE}
hun_covid_sub <- subset(hun_covid, select = -c(1:3, 5, 40:59))

hun_covid_sub$date <- ymd(hun_covid_sub$date)

str(hun_covid_sub)

data <- xts(x = hun_covid_sub$total_boosters, order.by = hun_covid_sub$date)
names(data) <- c("Total boosters")
```

```{r}
dygraph(data) %>%
  dyOptions(fillGraph = TRUE, fillAlpha = 0.5, colors = "#337ab7") %>%
  dyCrosshair(direction = "vertical") %>%
  dyLegend(show = "always") %>%
  dyRangeSelector() 
```


### New vaccinations per million

```{r, include=FALSE}
hun_covid_sub <- subset(hun_covid, select = -c(1:3, 5, 50:59))

hun_covid_sub$date <- ymd(hun_covid_sub$date)

str(hun_covid_sub)

data <- xts(x = hun_covid_sub$new_vaccinations_smoothed_per_million, order.by = hun_covid_sub$date)
names(data) <- c("New vaccinations per million")
```

```{r}
dygraph(data) %>%
  dyOptions(fillGraph = TRUE, fillAlpha = 0.5, colors = "#337ab7") %>%
  dyCrosshair(direction = "vertical") %>%
  dyLegend(show = "always") %>%
  dyRangeSelector() 
```